home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)td.d64 / mini grades.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  217 lines
  1. 1 GOSUB6000:PRINTCHR$(147):POKE53280,0:POKE53281,0:CL=54272
  2. 2 FORI=0TO39:A=1104+I:B=1304+I:POKEA,160:POKEA+CL,4:POKEB,160:POKEB+CL,4:NEXTI
  3. 3 FORI=0TO200STEP40:A=1104+I:B=1143+I:POKEA,160:POKEA+CL,4:POKEB,160:POKEB+CL,4
  4. 4 NEXTI:PRINTTAB(13)"MINI-GRADES":FORI=0TO400STEP40:A=1384+I:B=1403+I
  5. 5 C=1423+I:POKEA,160:POKEA+CL,5:POKEB,160:POKEB+CL,5:POKEC,160:POKEC+CL,5:NEXTI
  6. 6 FORI=0TO39:A=1384+I:B=1784+I:POKEA,160:POKEA+CL,5:POKEB,160:POKEB+CL,5:NEXTI
  7. 7 PRINTTAB(3)"LETTER GRADES"TAB(23)"[159]NUMERIC SCORES"
  8. 8 PRINTTAB(9)"F1"TAB(29)"[159]F3"
  9. 9 PRINT"[158] PRESS DESIRED KEY ":FORT=1TO200:NEXT
  10. 10 PRINT"[158] PRESS DESIRED KEY ":FORT=1TO200:NEXT
  11. 11 GETA$:IFA$=""THEN9
  12. 12 IFA$<>"[133]"ANDA$<>"[134]"THEN9
  13. 13 IFA$="[134]"THEN3000
  14. 14 CLR:PRINTCHR$(147):CL=54272:FORI=1104TO1143:POKEI,160:POKEI+CL,14:NEXT
  15. 15 FORI=1143TO1703STEP40:POKEI,160:POKEI+CL,14:NEXT:FORI=1703TO1664STEP-1
  16. 16 POKEI,160:POKEI+CL,14:NEXT:FORI=1664TO1104STEP-40:POKEI,160:POKEI+CL,14:NEXT
  17. 17 PRINTTAB(8)"[153]LETTER GRADE AVERAGING "
  18. 20 PRINTTAB(17)"BY"
  19. 25 PRINTTAB(12)"DANIEL FLINN"
  20. 27 FORT=1TO500:NEXTT:FORI=1345TO1382:POKEI,160:POKEI+CL,1:NEXT
  21. 30 PRINTTAB(2)"[154]WELCOME TO A PROGRAM THAT ALLOWS THE"
  22. 32 PRINTTAB(2)"TEACHER TO AVERAGE LETTER GRADES AND"
  23. 34 PRINTTAB(2)"THEN PRINT THEM OUT."
  24. 35 PRINTTAB(11)"[158] PRESS RETURN "
  25. 40 GETA$:IFA$=""THEN40
  26. 45 IFA$<>CHR$(13)THEN40
  27. 50 PRINTCHR$(147)
  28. 74 INPUT"HOW MANY STUDENTS TODAY";I
  29. 76 DIM N$(I),OG$(I)
  30. 80 PRINT:INPUT"AND HOW MANY GRADES";X
  31. 85 PRINT:PRINT"IS INFORMATION CORRECT?(Y OR N)"
  32. 87 GET B$:IF B$=""THEN 87
  33. 90 IF B$<>"Y"THEN PRINT CHR$(147):CLR:GOTO 74
  34. 93 PRINTCHR$(147)
  35. 95 FOR C=1 TO I
  36. 100 PRINT"TYPE IN NAME FOR STUDENT #";C:INPUTN$(C)
  37. 102 PRINT"[153] ENTER ONLY LETTER GRADES NEXT "
  38. 105 FOR Z=1 TO X
  39. 110 PRINT:PRINT"ENTER LETTER GRADE #";Z:INPUT"[145]";G$
  40. 260 IF G$="A"THEN A=11:GOTO 380
  41. 270 IF G$="A-" THEN A=10:GOTO 380
  42. 280 IF G$="B+" THEN A=9:GOTO 380
  43. 290 IF G$="B" THEN A=8:GOTO 380
  44. 300 IF G$="B-" THEN A=7:GOTO 380
  45. 310 IF G$="C+" THEN A=6:GOTO 380
  46. 320 IF G$="C" THEN  A=5:GOTO 380
  47. 330 IF G$="C-" THEN A=4:GOTO 380
  48. 340 IF G$="D+" THEN A=3:GOTO 380
  49. 350 IF G$="D" THEN A=2:GOTO 380
  50. 360 IF G$="D-" THEN A=1:GOTO 380
  51. 363 IF G$="F"THENA=0:GOTO380
  52. 380 TA=TA+A
  53. 390 NEXT
  54. 400 PRINT"ARE SCORES CORRECT? (Y/N)
  55. 405 [161]A$:[139]A$[178]""[167]405
  56. 410 [139]A$[179][177]"Y"[167]TA[178]0:A[178]0:[137]102
  57. 500 AV[178]TA[173]X
  58. 550 [153][199](147)
  59. 580 [139]AV[179].51[167]995
  60. 600 [139] AV[179]1.51 [167] 1000
  61. 610 [139] AV[179]2.51[167] 1010
  62. 620 [139] AV[179]3.51[167] 1020
  63. 630 [139] AV[179]4.51[167] 1030
  64. 640 [139] AV[179]5.51[167] 1040
  65. 650 [139] AV[179]6.51[167] 1050
  66. 660 [139] AV[179]7.51[167] 1060
  67. 670 [139] AV[179]8.51[167] 1070
  68. 680 [139] AV[179]9.51[167] 1080
  69. 690 [139] AV[179]10.51[167]1090
  70. 700 [139] AV[179]11.51[167]1100
  71. 995 OG$[178]"F":[137]2000
  72. 1000 OG$[178]"D-":[137] 2000
  73. 1010 OG$[178]"D":[137] 2000
  74. 1020 OG$[178]"D+":[137] 2000
  75. 1030 OG$[178]"C-":[137] 2000
  76. 1040 OG$[178]"C":[137] 2000
  77. 1050 OG$[178]"C+":[137] 2000
  78. 1060 OG$[178]"B-":[137] 2000
  79. 1070 OG$[178]"B":[137] 2000
  80. 1080 OG$[178]"B+":[137] 2000
  81. 1090 OG$[178]"A-":[137] 2000
  82. 1100 OG$[178]"A":[137] 2000
  83. 2000 OG$(C)[178]OG$
  84. 2005 TA[178]0
  85. 2010 [130] C
  86. 2020 [129] C[178]1 [164] I
  87. 2025 N$(C)[178]N$(C)[170]"...........":N$(C)[178][200](N$(C),12)
  88. 2030 [153]C;N$(C)"...............";[163]27)OG$(C)
  89. 2035 [130] C
  90. 2040 [133] "CLASS NAME";D$
  91. 2045 [153]"YOUR CHOICE?"
  92. 2050 [153]:[153]"P=SEND GRADES TO PRINTER"
  93. 2060 [153]:[153]"Q=QUIT PROGRAM"
  94. 2061 [153]:[153]"RWAIT=RUN THE PROGRAM AGAIN"
  95. 2065 [161] A$:[139] A$[178]"" [167] 2065
  96. 2067 [139]A$[179][177]"P"[175]A$[179][177]"Q"[175]A$[179][177]"R"[167]2065
  97. 2070 [139] A$[178]"P" [167] [137] 2500
  98. 2080 [139] A$[178]"R"[167][153][199](147):[137] 13
  99. 2090 [139] A$[178]"Q" [167] [128]
  100. 2500 [159]4,4
  101. 2505 [157]4:[153]"GRADES FOR: ";D$
  102. 2510 [129] C[178]1 [164] I
  103. 2520 [157]4:[153]C;N$(C)"..............."OG$(C)
  104. 2525 [130] C
  105. 2527 [153]"HAVE A NICE DAY!!"
  106. 2530 [160]4:[128]
  107. 3000 [156]:CL[178]54272:[153][199](147):[151]53280,0:[151]53281,0
  108. 3005 [129]I[178]1304[164]1343:[151]I,160:[151]I[170]CL,6:[130]
  109. 3010 [129]I[178]1343[164]1703[169]40:[151]I,160:[151]I[170]CL,6:[130]
  110. 3020 [129]I[178]1703[164]1664[169][171]1:[151]I,160:[151]I[170]CL,6:[130]
  111. 3025 [129]I[178]1664[164]1304[169][171]40:[151]I,160:[151]I[170]CL,6:[130]:[129]T[178]1[164]1000:[130]T
  112. 3030 [153][163]1)"WELCOME TO THE SECTION OF THE PROGRAM"
  113. 3035 [153][163]1)"WHICH AVERAGES NUMERIC SCORES AND"
  114. 3037 [153][163]1)"THEN PRINTS THEM OUT FOR THE TEACHER":[129]T[178]1[164]2000:[130]T
  115. 3040 [153][163]11)"SYS PRESS RETURN "
  116. 3045 [161]A$:[139]A$[178]""[167]3045
  117. 3050 [139]A$[179][177][199](13)[167]3045
  118. 3100 [153] [199](147)"NOW LET'S CHOOSE A COLOR BACKGROUND."
  119. 3200 [153]:[153]:[153]"1=WHITE":[153]"2=PURPLE":[153]"3=GREEN":[153]"4=BLUE"
  120. 3201 [153]"5=BLACK"
  121. 3202 [153]"FOR PRESS THE DESIRED KEY ":[129]T[178]1[164]200:[130]
  122. 3204 [153]"FOR PRESS THE DESIRED KEY ":[129]T[178]1[164]200:[130]
  123. 3210 [161] A$:[139] A$[178]""[167] 3202
  124. 3215 [139]A$[179][177]"1"[175]A$[179][177]"2"[175]A$[179][177]"3"[175]A$[179][177]"4"[175]A$[179][177]"5"[167]3202
  125. 3220 [139] A$[178]"1"[167] [151] 53280,1:[151] 53281,1:[151] 646,0
  126. 3230 [139] A$[178]"2" [167] [151] 53280,4:[151] 53281,4:[151] 646,0
  127. 3240 [139] A$[178]"3" [167] [151] 53280,5:[151] 53281,5:[151] 646,0
  128. 3250 [139] A$[178]"4" [167] [151] 53280,6:[151] 53281,6:[151] 646,0
  129. 3255 [139]A$[178]"5"[167]V[178]1:[151]646,6
  130. 3260 [153] [199](147)
  131. 3270 [133] "POINTS POSSIBLE";T:[153]:[153]
  132. 3280 [133] "HOW MANY STUDENTS";I:[153]:[153]
  133. 3285 [134] N$(I), L$(I),M(I),M%(I)
  134. 3290 [133] "HOW MANY SCORES";X
  135. 3300 [153]:[153]"IS INFORMATION CORRECT? (Y OR N)"
  136. 3400 [161] B$:[139] B$[178]""[167] 3400
  137. 3410 [139] B$[179][177]"Y"[167]:[156]:[137] 3260
  138. 3420 [129] C[178]1 [164] I
  139. 3430 [153] [199](147)
  140. 3440 [153]"ENTER NAME FOR STUDENT #";C:[133]N$(C)
  141. 3445 [153]"FORREMEMBER TO ENTER NUMBER SCORES ONLY!":
  142. 3450 [139]V[178]0[167][151]646,0
  143. 3455 [139]V[178]1[167][151]646,6
  144. 3480 [129] A[178]1 [164] X
  145. 3490 [153]:[153]"ENTER NUMBER #";A;:[133] B(A)
  146. 3500 [130]
  147. 3510 [153]:[153]:[153]"IS INFORMATION CORRECT? (Y OR N)"
  148. 3520 [161] G$:[139] G$[178]""[167] 3520
  149. 3530 [139] G$[178] "Y" [167] [153] [199](147):[137] 3540
  150. 3535 [139] G$[178]"N" [167] [137] 3430
  151. 3540 SU[178]0
  152. 3550 [129] A[178]1 [164] X
  153. 3560 SU[178]SU[170]B(A)
  154. 3570 [130]
  155. 3580 [153][199](147)
  156. 3590 M[178]SU[173]T[172]100
  157. 3610 [139] M[179]49.5 [167] 3800
  158. 3620 [139] M[179]52.5 [167] 3810
  159. 3630 [139] M[179]56.5 [167] 3820
  160. 3640 [139] M[179]59.5 [167] 3830
  161. 3650 [139] M[179]64.5 [167] 3840
  162. 3660 [139] M[179]74.5 [167] 3850
  163. 3670 [139] M[179]79.5 [167] 3860
  164. 3680 [139] M[179]82.5 [167] 3870
  165. 3690 [139] M[179]86.5 [167] 3880
  166. 3700 [139] M[179]89.5 [167] 3890
  167. 3710 [139] M[179]94.5 [167] 3900
  168. 3720 [139] M[177]94.5 [167] 3910
  169. 3800 L$[178]"F":[137] 3920
  170. 3810 L$[178]"D-":[137] 3920
  171. 3820 L$[178]"D":[137] 3920
  172. 3830 L$[178]"D+":[137] 3920
  173. 3840 L$[178]"C-":[137] 3920
  174. 3850 L$[178]"C":[137] 3920
  175. 3860 L$[178]"C+":[137] 3920
  176. 3870 L$[178]"B-":[137] 3920
  177. 3880 L$[178]"B":[137] 3920
  178. 3890 L$[178]"B+":[137] 3920
  179. 3900 L$[178]"A-":[137] 3920
  180. 3910 L$[178]"A":[137] 3920
  181. 3920 M(C)[178]M
  182. 3930 L$(C)[178]L$
  183. 3940 [130] C
  184. 3950 [129] C[178]1 [164] I
  185. 3960 N$(C)[178]N$(C)[170]"...........":N$(C)[178][200](N$(C),12):M%[178]M(C)[170].5
  186. 3970 [153] C;[163]4)N$(C)"...............";[163]27);M%"%"[163]37)L$(C)
  187. 3980 [130] C
  188. 3990 [133] "CLASS NAME";D$
  189. 4000 [153]"YOUR CHOICE?"
  190. 4005 [153]:[153]:[153]"SEND TO PRINTER=PWAIT"
  191. 4007 [153]:[153]"QUIT THE PROGRAM=QWAIT"
  192. 4008 [153]:[153]"RUN THE PROGRAM AGAIN=RWAIT
  193. 4010 GETP$:IF P$="" THEN 4010
  194. 4015 IFP$<>"Q"ANDP$<>"P"ANDP$<>"R"THEN4010
  195. 4020 IF P$="Q"  THEN END
  196. 4030 IF P$="P" THEN 5000
  197. 4035 IF P$="R"THEN PRINTCHR$(147):GOTO 3000
  198. 5000 OPEN4,4
  199. 5010 CMD4:PRINT"GRADES FOR:  ";D$
  200. 5020 FOR C=1 TO I
  201. 5025 M%=M(C)+.5
  202. 5030 CMD4:PRINTC;N$(C)"...............";M%"%";"....";L$(C)
  203. 5040 NEXT C
  204. 5050 PRINT"THANK YOU FOR USING THIS PROGRAM."
  205. 5060 PRINT"HAVE A HAPPY DAY!"
  206. 5070 END
  207. 6000 POKE53280,0:POKE53281,0:POKE646,4
  208. 6010 PRINTCHR$(147):PRINTTAB(8)"[145] NOTE TO INSTRUCTOR "
  209. 6015 PRINT"   THE GRADE SCALE FOR LETTER GRADE     AVERAGING MAY BE ALTERED";
  210. 6020 PRINT" BY LISTING     AND CHANGING THE STATEMENTS FROM LINES  260 TO 363."
  211. 6030 PRINT"   THE GRADE SCALE FOR NUMERIC AVERAGINGMAY BE ALTERED ";
  212. 6040 PRINT"BY LISTING AND CHANGING  THE STATEMENTS FROM LINES 3610 TO 3910."
  213. 6050 PRINTTAB(11)"[158] PRESS RETURN "
  214. 6055 GETA$:IFA$=""THEN6055
  215. 6060 IFA$<>CHR$(13)THEN6055
  216. 6065 RETURN
  217.